﻿Public Class EmkVergiYDDurum
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="Emekli Yurtiçi/Yurtdışı Durumu"
        '        InitialHelp = "Kimlik kartı numarasını girin."
        '        AddField("@kimlik", "nl", "", "Kimlik numarasını girmeniz gerekir.")
        '        StartBody()
        '        AddList("List", 0, 90).Columns = "hturu(Hesap T.;c;80),kararno(Karar No.;r;80),kimlik(Kimlik;c;100),adi(Adı Soyadı;l;100%)"
        '        AddCombo("yurtdisi", "Durum", "H,Yurtiçi|E,Yurtdışı|O,Otomatik")
        '        DisplayForm()
        '    Case EventType.ValidateForm
        '        Rs = OpenSQL("select hturu,kararno,rtrim(kimlik) as kimlik,rtrim(adi)+' '+rtrim(soyadi) as adi,isnull(yurtdisi,'O') as yurtdisi from yaslılık..yasmaasbil where kimlik = :~kimlik and odeyerkod < 900", Input("kimlik"))
        '        If Check("Kimlik", Rs.EOF, "Kimlik numarası bulunamadı.") Then Exit Sub
        '        List.DataSource = Rs
        '        Input("yurtdisi") = Rs("yurtdisi")
        '        Help = "Yurtiçi/yurtdışı durumunu değiştirerek kaydedebilirsiniz."
		'        Buttons.Show("Save.Reset")
        '        e.Result = True
        '    Case EventType.Save
        '        Emeklilik.YurtdisiBilgisi(Remote, Input("kimlik"), Input("yurtdisi"))
        '        Info("Kayıt yapılmıştır.")
        '        Restart()
        'End Select
    End Sub

End Class
